home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xgcvalues.t < prev    next >
Text File  |  1990-06-01  |  4KB  |  56 lines
  1. (herald xgcvalues (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XGCVALUES) (CONS 'XGCVALUESP (MAKE-BYTEV 92)))
  3. (DEFINE (XGCVALUES-FUNCTION X) (MREF-INTEGER (CHK-XGCVALUESP X) 0))
  4. (DEFINE (XGCVALUES-FUNCTION! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 0 Y))
  5. (DEFINE (XGCVALUES-PLANE_MASK X) (MREF-INTEGER (CHK-XGCVALUESP X) 4))
  6. (DEFINE (XGCVALUES-PLANE_MASK! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 4 Y))
  7. (DEFINE (XGCVALUES-FOREGROUND X) (MREF-INTEGER (CHK-XGCVALUESP X) 8))
  8. (DEFINE (XGCVALUES-FOREGROUND! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 8 Y))
  9. (DEFINE (XGCVALUES-BACKGROUND X) (MREF-INTEGER (CHK-XGCVALUESP X) 12))
  10. (DEFINE (XGCVALUES-BACKGROUND! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 12 Y))
  11. (DEFINE (XGCVALUES-LINE_WIDTH X) (MREF-INTEGER (CHK-XGCVALUESP X) 16))
  12. (DEFINE (XGCVALUES-LINE_WIDTH! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 16 Y))
  13. (DEFINE (XGCVALUES-LINE_STYLE X) (MREF-INTEGER (CHK-XGCVALUESP X) 20))
  14. (DEFINE (XGCVALUES-LINE_STYLE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 20 Y))
  15. (DEFINE (XGCVALUES-CAP_STYLE X) (MREF-INTEGER (CHK-XGCVALUESP X) 24))
  16. (DEFINE (XGCVALUES-CAP_STYLE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 24 Y))
  17. (DEFINE (XGCVALUES-JOIN_STYLE X) (MREF-INTEGER (CHK-XGCVALUESP X) 28))
  18. (DEFINE (XGCVALUES-JOIN_STYLE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 28 Y))
  19. (DEFINE (XGCVALUES-FILL_STYLE X) (MREF-INTEGER (CHK-XGCVALUESP X) 32))
  20. (DEFINE (XGCVALUES-FILL_STYLE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 32 Y))
  21. (DEFINE (XGCVALUES-FILL_RULE X) (MREF-INTEGER (CHK-XGCVALUESP X) 36))
  22. (DEFINE (XGCVALUES-FILL_RULE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 36 Y))
  23. (DEFINE (XGCVALUES-ARC_MODE X) (MREF-INTEGER (CHK-XGCVALUESP X) 40))
  24. (DEFINE (XGCVALUES-ARC_MODE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 40 Y))
  25. (DEFINE (XGCVALUES-TILE X) (MREF-INTEGER (CHK-XGCVALUESP X) 44))
  26. (DEFINE (XGCVALUES-TILE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 44 Y))
  27. (DEFINE (XGCVALUES-STIPPLE X) (MREF-INTEGER (CHK-XGCVALUESP X) 48))
  28. (DEFINE (XGCVALUES-STIPPLE! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 48 Y))
  29. (DEFINE (XGCVALUES-TS_X_ORIGIN X) (MREF-INTEGER (CHK-XGCVALUESP X) 52))
  30. (DEFINE (XGCVALUES-TS_X_ORIGIN! X Y)
  31.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 52 Y))
  32. (DEFINE (XGCVALUES-TS_Y_ORIGIN X) (MREF-INTEGER (CHK-XGCVALUESP X) 56))
  33. (DEFINE (XGCVALUES-TS_Y_ORIGIN! X Y)
  34.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 56 Y))
  35. (DEFINE (XGCVALUES-FONT X) (MREF-INTEGER (CHK-XGCVALUESP X) 60))
  36. (DEFINE (XGCVALUES-FONT! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 60 Y))
  37. (DEFINE (XGCVALUES-SUBWINDOW_MODE X) (MREF-INTEGER (CHK-XGCVALUESP X) 64))
  38. (DEFINE (XGCVALUES-SUBWINDOW_MODE! X Y)
  39.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 64 Y))
  40. (DEFINE (XGCVALUES-GRAPHICS_EXPOSURES X) (MREF-INTEGER (CHK-XGCVALUESP X) 68))
  41. (DEFINE (XGCVALUES-GRAPHICS_EXPOSURES! X Y)
  42.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 68 Y))
  43. (DEFINE (XGCVALUES-CLIP_X_ORIGIN X) (MREF-INTEGER (CHK-XGCVALUESP X) 72))
  44. (DEFINE (XGCVALUES-CLIP_X_ORIGIN! X Y)
  45.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 72 Y))
  46. (DEFINE (XGCVALUES-CLIP_Y_ORIGIN X) (MREF-INTEGER (CHK-XGCVALUESP X) 76))
  47. (DEFINE (XGCVALUES-CLIP_Y_ORIGIN! X Y)
  48.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 76 Y))
  49. (DEFINE (XGCVALUES-CLIP_MASK X) (MREF-INTEGER (CHK-XGCVALUESP X) 80))
  50. (DEFINE (XGCVALUES-CLIP_MASK! X Y) (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 80 Y))
  51. (DEFINE (XGCVALUES-DASH_OFFSET X) (MREF-INTEGER (CHK-XGCVALUESP X) 84))
  52. (DEFINE (XGCVALUES-DASH_OFFSET! X Y)
  53.         (SET-MREF-INTEGER! (CHK-XGCVALUESP X) 84 Y))
  54. (DEFINE (XGCVALUES-DASHES X) (MREF-8-U (CHK-XGCVALUESP X) 88))
  55. (DEFINE (XGCVALUES-DASHES! X Y) (SET-MREF-8-U! (CHK-XGCVALUESP X) 88 Y))
  56.